      * cobc -x principal.cbl  gestor_archivo.cbl -o subprogramas.exe
      ******************************************************************
       IDENTIFICATION DIVISION.
      ******************************************************************
       PROGRAM-ID. gestor_archivo.       

      ******************************************************************
       ENVIRONMENT DIVISION.
      ******************************************************************
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
        SELECT ArchivoEntrada ASSIGN TO "ENTRADA.DAT"
        ORGANIZATION IS LINE SEQUENTIAL
        FILE STATUS IS FSEntrada.
      ******************************************************************
       DATA DIVISION.
      ******************************************************************
      *****************************************************
       FILE SECTION.
      *****************************************************
        FD ArchivoEntrada.
        01 RegistroEntrada.
           03 Nombre PIC X(8).
      *****************************************************
       WORKING-STORAGE SECTION.
      *****************************************************
       01 FSEntrada PIC 9(2).

      *****************************************************
       LINKAGE SECTION.
      *****************************************************
       01 entrada_gestor.
         03 Operacion PIC X.

       01 SalidaGestor.
         03 EOFEntrada PIC X VALUE 'N'.
         03 Nombre PIC X(8).         

      ******************************************************************
       PROCEDURE DIVISION USING entrada_gestor, SalidaGestor.
      ******************************************************************
         EVALUATE operacion
           when 'A' perform Abrir
           when 'C' perform Cerrar
           when 'L' perform Leer
           when other perform ErrorOperacion
         END-EVALUATE.

      *********************************
       Abrir.
         OPEN INPUT ArchivoEntrada.
         GOBACK.

      *********************************
       Cerrar.
         CLOSE ArchivoEntrada.
         GOBACK.

      *********************************
       ErrorOperacion.
         DISPLAY "Operacion desconocida".
         DISPLAY Operacion.
         STOP RUN.

      *********************************
       Leer.
         READ ArchivoEntrada AT END SET EOFEntrada TO 'S'.
         MOVE Nombre OF RegistroEntrada TO Nombre OF SalidaGestor.
         GOBACK.
